library(ggplot2)
library(dplyr)
library(DT)
library(dygraphs)
library(xts)
library(hrbrthemes) #Pckge de personnalisation
library(plotly) #Interactif
Ecrire un blabla sur les inégalités et la parité dans le monde et les liens entre différents facteurs etc. Bref on va étudier des chiffres sur le sujet
data = read.csv('DonneesParite.csv', sep=";")
#datatable(data, rownames = FALSE, filter="top", options = list(pageLength = 5, scrollX=T) )
dataFrance = data%>%
filter(Country=="France")
dataFrance$Year = as.Date(dataFrance$Year,"%Y")
dataFrance = dataFrance%>%
filter(!is.na(Year))
don=xts(x = dataFrance$FertilityRate, order.by = dataFrance$Year) #On créer un format xts
dygraph(don)#On trace
don=xts(x = dataFrance$LifeExpectancyFemale, order.by = dataFrance$Year) #On créer un format xts
dygraph(don)#On trace